home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / farben beispiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  61 lines
  1. 10 rem ***************************
  2. 11 rem *** declare 88 beispiel ***
  3. 15 open1,8,15:print#1,"s:blue.obj,colors.pac":close1
  4. 20 (NULL)
  5. 100 rem *** erstellen eines obj-files
  6. 105 rem  1. file oeffnen
  7. 110 open1,8,2,"blue.obj,p,w"
  8. 111 rem  2. assembler aufruf
  9. 112 sys9*4096:.opt o1:*=828
  10. 113 ; ** 3. quelltext ***
  11. 114 .asc "program:"
  12. 120 lda #6:sta 53280:sta 53281:rts
  13. 130 .end
  14. 132 close1
  15. 140 rem deklaration
  16. 142 (NULL)"blue",8
  17. 200 rem *** pack-file mit using
  18. 210 open1,8,2,"colors.pac,p,w"
  19. 212 sys9*4096:.opt o1:*=828
  20. 213 ; *** quelltext ***
  21. 214 .asc "pro[195] white,pro[195] grey:u[211] blue,2:pro[199]:"
  22. 220 jmp wht:jmp gre
  23. 224 wht lda #1:jmp l328
  24. 226 gre lda #12
  25. 228 l328 jmp $ffff
  26. 230 .end
  27. 232 close1
  28. 240 rem deklaration
  29. 242 (NULL)"colors",8
  30. 300 rem *** aus speicher deklarieren
  31. 309 rem   1. assembler-aufruf
  32. 310 sys9*4096:.opt oo:*=828
  33. 312 ; **  2. quelltext
  34. 314 .asc "using blue,2:program:"
  35. 316 .word ende
  36. 318 lda #2:jmp $ffff
  37. 320 ende nop
  38. 322 .end
  39. 330 rem *** deklaration
  40. 340 (NULL)"red",1,828
  41. 400 rem *** "pack" mit #1 ohne "using"
  42. 412 sys9*4096:.opt oo:*=828
  43. 414 .asc "procedure green,procedure yellow:program:"
  44. 416 .word ende
  45. 420 jmp grn:jmp yel
  46. 424 grn lda #5:jmp l328
  47. 426 yel lda #7
  48. 428 l328 sta 53280:sta 53281:rts
  49. 430 ende nop
  50. 432 .end
  51. 440 rem *** deklaration
  52. 442 (NULL)"colors2",1,828
  53. 450 print:print"folgende befehle sind definiert:"
  54. 452 (NULL)
  55. 499 end
  56. 500 rem ** direkt-deklaration #0
  57. 501 rem ** nur mit profi-ass
  58. 502 (NULL)"purple",0,"program:":.opt oo
  59. 504 lda #4:sta 53280:sta 53281:rts
  60. 506 .end
  61.